MessageDlg a dalsi dialogy predavaji sve udalosti dal

Otázka od: Petr Varga

26. 11. 2002 11:43

Mám formulář, který reaguje na stisknutí enteru a spousty dalších
kláves. Vždycky se zavola nějaká příslušná funkce. A když v jedné z
techto fcí zavolám MessageDlg nebo Application.MessageBox a zavřu
dialog klávesou, přejde mi tato klávesa do události formuláře.. Jak
to že? Potřebuji aby prostě když v tom dialogu má focus třeba
tlačítko OK a uživatel zmáčkne Enter tak tato událost se týkala
pouze tohoto dialogu. Ne celeho formuláře.. Nevíte někdo? Jen tak na
okraj nějaké nastavování proměnnych na true a v onkeydown pri
promenne true stornovat vstup je až poslední varianta..

       Delphi 5, Enterprice..
               Děkuji Petr Varga

--
---
Připojení serveru k internetu rychlostí 10 nebo 100 Mbps nabízí
služba Server Housing od Jet2Web Czech Republic. Ceny od 1.500 Kč
měsíčně! Info:
http://www.jet2web.cz/cs/products?article=jet2web_products_housing_housing

Odpovedá: Peter Vlkovic

26. 11. 2002 13:31

Ahoj,

skus do obsluhy klavesy v hlavnom formulari napisat podmienku:

if Sender <> self then
     Exit;

Vlkovic


> Mám formulář, který reaguje na stisknutí enteru a spousty dalších
> kláves. Vždycky se zavola nějaká příslušná funkce. A když v jedné z
> techto fcí zavolám MessageDlg nebo Application.MessageBox a zavřu
> dialog klávesou, přejde mi tato klávesa do události formuláře..

Odpovedá: Jakub Dusek

26. 11. 2002 14:16

Sender je vzdycky ten co ma prirazenu udalost, cili takhle to nepujde.
Zrejme to obsluhujes na OnKeyUp, takze si treba v OnKeyDown zapamatuj
posledni stisknutou klavesu a jinou (ta ktera byl stistena dolu v
jinem formulari) v OnKeyUp ignoruj.

Jakub Dusek

--------------------------------
Homepage : http://dusek.webz.cz
Phone : +420604615795
Sms email : jakub.dusek@click.cz
ICQ: 86063232
Apps : Sms GateKeeper
--------------------------------

Tuesday, November 26, 2002, 1:00:33 PM, you wrote:

PV> Ahoj,

PV> skus do obsluhy klavesy v hlavnom formulari napisat podmienku:

PV> if Sender <> self then
PV> Exit;

PV> Vlkovic


>> Mám formulář, který reaguje na stisknutí enteru a spousty dalších
>> kláves. Vždycky se zavola nějaká příslušná funkce. A když v jedné z
>> techto fcí zavolám MessageDlg nebo Application.MessageBox a zavřu
>> dialog klávesou, přejde mi tato klávesa do události formuláře..